home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / skunk.src < prev    next >
Text File  |  1991-08-10  |  19KB  |  540 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ Skunk, by Douglas R. Cannon
  3. DIR
  4.   SETUP
  5.     \<< CLLCD
  6. "Please wait" 1
  7. DISP
  8. "10 seconds..." 2
  9. DISP BOARD ST\->
  10. 'BOARD' STO SKSHP
  11. ST\-> 'SKSHP' STO
  12. DICE ST\-> 'DICE' STO
  13. WAVES ST\-> 'WAVES'
  14. STO DOTS ST\-> 'DOTS'
  15. STO DESTIN ST\->
  16. 'DESTIN' STO PLANT
  17. ST\-> 'PLANT' STO POT
  18. ST\-> 'POT' STO
  19. SHAPES ST\-> 'SHAPES'
  20. STO { SETUP ST\-> }
  21. PURGE
  22.     \>>
  23.  
  24.   ST\->
  25.     \<< \-> S
  26.       \<< "" 1 S SIZE
  27.         FOR N S N GET +
  28.         NEXT STR\->
  29.       \>>
  30.     \>>
  31.  
  32.   SKUNK
  33.     \<< 0 0 0 0 \-> N KY HP SK
  34.       \<< BOARD {
  35. # 0h # 0h } { # 82h
  36. # 1Ch } SUB PICT
  37. STO { # 0h # 0h }
  38. PVIEW PICT { # 1Fh
  39. # 1Fh } "OPTIONS:"
  40. 1 \->GROB REPL PICT {
  41. # 1Fh # 26h }
  42. "1) HP AS PLAYER #1"
  43. 1 \->GROB REPL PICT {
  44. # 1Fh # 2Dh }
  45. "2) HP AS PLAYER #2"
  46. 1 \->GROB REPL PICT {
  47. # 1Fh # 34h }
  48. "3) TWO PLAYERS" 1
  49. \->GROB REPL
  50.         DO
  51.           IF KY
  52.           THEN 200 .1 BEEP
  53.           END
  54.           DO 1 'N' STO+ PICT { # 17h # 26h } WAVES N GET REPL N 10
  55.             IF ==
  56.             THEN 0 'N' STO
  57.             END
  58.           UNTIL KEY
  59.           END 'KY' STO
  60.         UNTIL KY 82 \>= KY 84 \<= AND
  61.         END KY 81 - 'HP' STO
  62.         IF KY 84 \=/
  63.         THEN PICT {
  64. # 17h # 1Eh } # 50h
  65. # 1Eh BLANK REPL
  66. PICT { # 1Fh # 1Fh
  67. } "SKILL LEVEL:" 1
  68. \->GROB REPL PICT {
  69. # 1Fh # 26h }
  70. "1) TERRIBLY EASY"
  71. 1 \->GROB REPL PICT {
  72. # 1Fh # 2Dh }
  73. "2) AVERAGE" 1
  74. \->GROB REPL PICT {
  75. # 1Fh # 34h }
  76. "3) CHALLENGING" 1
  77. \->GROB REPL 1 'N'
  78. STO 0 'KY' STO
  79.           DO
  80.             IF KY
  81.             THEN 200 .1 BEEP
  82.             END
  83.             DO PICT { # 14h # 26h } DOTS N GET REPL 1 'N' STO+ 5 N
  84.               IF ==
  85.               THEN 1 'N' STO
  86.               END
  87.             UNTIL KEY
  88.             END 'KY' STO
  89.           UNTIL KY 82 \>= KY 84 \<= AND
  90.           END KY 81 - 'SK' STO
  91.         END PICT { # 14h # 1Eh } # 5Ah # 1Eh BLANK REPL
  92. PICT { # 1Fh # 1Fh } "DESTINATION SCORE:" 1 \->GROB REPL
  93. PICT { # 1Fh # 26h } "1) 100 POINTS" 1 \->GROB REPL
  94. PICT { # 1Fh # 2Dh } "2) 200 POINTS" 1 \->GROB REPL
  95. PICT { # 1Fh # 34h } "3) 300 POINTS" 1 \->GROB REPL
  96. 1 'N' STO 0 'KY' STO
  97.         DO
  98.           IF KY
  99.           THEN 200 .1 BEEP
  100.           END
  101.           DO PICT { # 16h # 26h } BALLS N GET REPL 'N' 1 STO+ N 11
  102.             IF ==
  103.             THEN 1 'N' STO
  104.             END
  105.           UNTIL KEY
  106.           END 'KY' STO
  107.         UNTIL KY 82 \>= KY 84 \<= AND
  108.         END KY 81 - 100 * SK HP SKMAIN
  109.       \>>
  110.     \>>
  111.  
  112.   ABOUT
  113.     \<< PICT
  114. { # 0h # 0h } BOARD { # 1Fh # 1Eh } "BROUGHT TO YOU BY:" 1 \->GROB REPL
  115. { # 1Fh # 24h } "DOUGLAS R. CANNON" 1 \->GROB REPL
  116. { # 23h # 2Ah } "BYU, PROVO, UTAH" 1 \->GROB REPL
  117. { # 2Ch # 30h } "AUGUST 1991" 1 \->GROB REPL
  118. { # 0h # 37h } # 83h # 9h BLANK REPL
  119. { # 3h # 38h } "dougc@bert.cs.byu.edu" 2 \->GROB REPL REPL
  120. { # 0h # 0h } PVIEW
  121.       DO
  122.       UNTIL KEY
  123.       END DROP
  124.     \>>
  125.  
  126.   SKMAIN
  127.     \<<
  128. [ 0 0 ]
  129. 1 { { # 45h # 1Eh }
  130. { # 45h # 26h } } \->
  131. DEST SK HP SC P C
  132.       \<< PICT { # 0h # 0h } BOARD
  133.         CASE HP 1 ==
  134.           THEN { # 32h # 1Eh } "HP" 2 \->GROB REPL
  135.           END HP 2 ==
  136.           THEN { # 2Ch # 1Eh } SHAPES 1 GET GXOR
  137. { # 32h # 26h } "HP" 2 \->GROB REPL
  138. { # 2Ch # 1Eh } SHAPES 1 GET GXOR
  139.           END
  140.         END { # 19h # 38h } DESTIN DEST 100 / GET REPL REPL
  141.         DO PICT { # 2Ch # 1Eh } SHAPES 1 GET GXOR
  142.           IF P HP ==
  143.           THEN SC HP SK DEST HPTURN
  144.           ELSE SC P GET DEST TURN
  145.           END MYTH DUP SIGN DUP
  146.           IF
  147.           THEN
  148.             IF 0 <
  149.             THEN P ERNUM
  150.             END SC P GET + DUP 'SC' P ROT PUT C P GET DNUM
  151.           ELSE DROP2
  152.           END 3 ERNUM 0 { # 45h # 2Eh } DNUM P 1 == 2 1 IFTE 'P' STO
  153.         UNTIL SC 1 GET DEST \>= SC 2 GET DEST \>= OR P 1 == AND SC ARRY\->
  154. DROP \=/ AND
  155.         END DEST SK HP SC FANF
  156.       \>>
  157.     \>>
  158.  
  159.   NEWS
  160.     \<< 0 \-> M C A
  161.       \<< 1 M SIZE
  162.         FOR N PICT C M N N SUB 1 \->GROB DUP SIZE DROP 'A' STO REPL
  163. 2000 .005 BEEP C 1 GET A + 'C' 1 ROT PUT
  164.         NEXT
  165.       \>>
  166.     \>>
  167.  
  168.   DNUM
  169.     \<< \-> N C
  170.       \<< PICT C N 2 \->GROB REPL
  171.       \>>
  172.     \>>
  173.  
  174.   NANNY @ nyah-nyah tune
  175.     \<< 554 .3 659 .3 740 .075 554 .15 659 .075 659 .15 1 6
  176.       FOR N BEEP
  177.       NEXT
  178.     \>>
  179.  
  180.   Roll
  181.     \<< 0 0 \-> D1 D2
  182.       \<< RAND 6 * 1 + IP 'D1' STO RAND 6 * 1 + IP 'D2' STO
  183. PICT { # 5h # 6h } DICE D1 GET REPL
  184. 4000 .03 BEEP PICT { # 6Bh # 6h } DICE D2 GET REPL
  185. 4000 .03 BEEP D1 D2
  186.       \>>
  187.     \>>
  188.  
  189.   ERNUM
  190.     \<< PICT # 45h ROT R\->B # 8h * # 16h + 2 \->LIST # 19h # 8h BLANK REPL
  191.     \>>
  192.  
  193.   TURN
  194.     \<< 0 0 0 0 0 \-> SC DEST POT D1 D2 KY DONE
  195.       \<<
  196.         DO KEY NOT 0 IFT
  197.         UNTIL NOT
  198.         END
  199.         DO
  200.           DO
  201.           UNTIL KEY
  202.           END 'KY' STO
  203.           IF KY 35 ==
  204.           THEN QUIT
  205.           END
  206.           IF KY 11 ==
  207.           THEN Roll 'D2' STO 'D1' STO
  208.             IF D1 1 == D2 1 == AND
  209.             THEN DEST DSK 1 'DONE' STO SC NEG
  210.             END
  211.             IF D1 1 == D2 1 == OR DONE NOT AND
  212.             THEN D1 D2 DEST SK 1 'DONE' STO 0
  213.             END
  214.             IF DONE NOT
  215.             THEN 'POT' D1 D2 + STO+ POT { # 45h # 2Eh } DNUM
  216.             END
  217.           END
  218.           IF KY 16 \=/ KY 11 \=/ AND
  219.           THEN 200 .1 BEEP
  220.           END
  221.         UNTIL KY 16 == DONE OR
  222.         END DONE NOT POT IFT
  223.       \>>
  224.     \>>
  225.  
  226.   HPTURN
  227.     \<< 0 0 0 0 0 \-> SC HP SL DEST KP POT D1 D2 DONE
  228.       \<<
  229.         CASE SL 1 ==
  230.           THEN 5 'KP' STO
  231.           END SL 2 ==
  232.           THEN 3 'KP' STO
  233.           END SL 3 ==
  234.           THEN 1 'KP' STO
  235.           END
  236.         END
  237.         DO 'KP' 1 STO- Roll 'D2' STO 'D1' STO
  238.           IF D1 1 == D2 1 == AND
  239.           THEN DEST DSK 1 'DONE' STO SC HP GET NEG
  240.           END
  241.           IF D1 1 == D2 1 == OR DONE NOT AND
  242.           THEN D1 D2 DEST SK 1 'DONE' STO 0
  243.           END
  244.           IF DONE NOT
  245.           THEN 'POT' D1 D2 + STO+ POT { # 45h # 2Eh } DNUM
  246.           END
  247.           IF SL 3 ==
  248.           THEN SC HP GET SC HP 1 == 2 1 IFTE
  249. GET > 16 23 IFTE POT \<= 0 1 IFTE 'KP' STO
  250.           END
  251.           IF SC HP GET POT + DEST \>=
  252.           THEN 0 'KP' STO
  253.           END
  254.           IF HP 2 == SC HP 1 == 2 1 IFTE
  255. GET SWAP OVER DEST \>= AND SWAP SC HP GET POT + \>= AND
  256.           THEN 1 'KP' STO
  257.           END
  258.         UNTIL KP 0 \<= DONE OR
  259.         END DONE NOT POT IFT
  260.       \>>
  261.     \>>
  262.  
  263.   QUIT
  264.     \<< 0 \-> KY
  265.       \<< CLLCD "Do you REALLY" 2 DISP "want to quit?" 3 DISP TEXT 1000 .3 BEEP
  266.         DO
  267.           DO
  268.           UNTIL KEY
  269.           END 'KY' STO
  270.           IF KY 31 \=/ KY 52 \=/ AND
  271.           THEN 200 .1 BEEP
  272.           END
  273.           IF KY 52 ==
  274.           THEN KILL
  275.           END
  276.         UNTIL KY 32 ==
  277.         END { # 0h # 0h } PVIEW
  278.       \>>
  279.     \>>
  280.  
  281.   FANF
  282.     \<< 0 1 0 \-> DEST SK HP SC C WON ME
  283.       \<<
  284.         IF HP 3 \=/
  285.         THEN SC ARRY\-> DROP > HP 1 == OVER AND SWAP NOT HP 2 == AND OR
  286.         ELSE 0
  287.         END DUP 'ME' STO 'HPWON' 'YOUWON' IFTE 'WON' STO 0 24
  288.         FOR N PICT # 1Eh N R\->B 2 \->LIST 'C' STO C SKSHP REPL
  289. PICT C WON N 2 / 1 + GET REPL 2
  290.         STEP PICT { # 1Eh # 36h } SHAPES 6 GET REPL
  291.         IF ME
  292.         THEN NANNY
  293.         ELSE 1 4
  294.          FOR N 1 2
  295.             FOR O PICT { # 20h # 1Ch } SHAPES 5 GET GXOR 10000 .005 BEEP
  296.             NEXT
  297.           NEXT
  298.         END 1 WAIT PICT { # 1Eh # 3h } # 47h # 12h BLANK REPL
  299. "FINAL SCORE:" { # 1Fh # 0h } NEWS
  300.         IF HP 1 ==
  301.         THEN { # 21h # 6h } "HP: "
  302.         ELSE { # 1Fh # 6h } "#1: "
  303.         END SC 1 GET \->STR + SWAP NEWS
  304.         IF HP 2 ==
  305.         THEN { # 21h # Ch } "HP: "
  306.         ELSE { # 1Fh # Ch } "#2: "
  307.         END SC 2 GET \->STR + SWAP NEWS
  308.         IF HP 3 \=/
  309.         THEN "SKILL: "
  310.           CASE SK 1 ==
  311.             THEN "EASY"
  312.             END SK 2 ==
  313.             THEN "AVERAGE"
  314.             END SK 3 ==
  315.             THEN "CHALLENGING"
  316.             END
  317.           END + { # 1Fh # 12h } NEWS
  318.         END # 1Eh SC ARRY\-> DROP > # 5h # Bh IFTE 2 \->LIST 'C' STO
  319.         DO KEY NOT 0 IFT
  320.         UNTIL NOT
  321.         END
  322.         DO PICT C SHAPES 7 GET GXOR .5 WAIT
  323.         UNTIL KEY
  324.         END DROP
  325.       \>>
  326.     \>>
  327.  
  328.   SK
  329.     \<< 0 \-> D1 D2 DEST C
  330.       \<< PICT { # 20h # 38h } SHAPES 3 GET REPL
  331.         IF D1 1 ==
  332.         THEN { # 2h # 2h }
  333.         ELSE { # 68h # 2h }
  334.         END 'C' STO 1 4
  335.         FOR N PICT C SHAPES 2 GET GXOR 2000 .01 BEEP
  336.         NEXT PICT { # 19h # 38h } DESTIN DEST 100 / GET REPL
  337.       \>>
  338.     \>>
  339.  
  340.   DSK
  341.     \<< 1 0 \-> DEST D C
  342.       \<< PICT { # 22h # 38h } SHAPES 4 GET REPL
  343. PICT { # 20h # 2h } SHAPES 5 GET GXOR 1 4
  344.         FOR N PICT # 2h # 66h D * + { # 2h } + 'C' STO C SHAPES 2 GET GXOR
  345. 2000 .02 BEEP 'D' 1
  346.           IF D
  347.           THEN STO-
  348.           ELSE STO+
  349.           END PICT C SHAPES 2 GET GXOR 1000 .02 BEEP
  350.         NEXT PICT { # 20h # 2h } SHAPES 5 GET GXOR
  351. PICT { # 19h # 38h } DESTIN DEST 100 / GET REPL
  352.       \>>
  353.     \>>
  354.  
  355.   MYTH
  356.     \<< RAND 40 * IP
  357.       IF 1 ==
  358.       THEN
  359.         IF RAND 2 * IP
  360.         THEN 2 3
  361.           FOR N PICT { # 0h # 1Eh } PLANT N GET REPL
  362.           NEXT 2 1
  363.           FOR N PICT { # 0h # 1Eh } PLANT N GET REPL -1
  364.           STEP
  365.         ELSE 2 3
  366.           FOR N PICT { # 67h # 1Eh } POT N GET REPL
  367.           NEXT 2 1
  368.           FOR N PICT { # 67h # 1Eh } POT N GET REPL -1
  369.           STEP
  370.         END
  371.       END
  372.     \>>
  373.  
  374.   BOARD {
  375. "GROB 131 64 0FFFFF10040E70CFCF00E70000CFFFF700CFFFFF700A02404848082400"
  376. "00FFFFFF10E30008F0051A504B4B0CA50008F0000E30E00000E08E2A501B4B0AA50108"
  377. "30000830700000C14F5A582B4B09A5820C10000070700000C1ABB8545A4B8AA5450C10"
  378. "00007030000081D5795ABA4B4BA5AB0C0000006030000089EAE25D5A4BABA0D50C0000"
  379. "00603000008571D5DE2B4BCB22E20C0000006030000089E2A2571B4BEB05610C000000"
  380. "6030000081D5499B4B4B6B8A800C0000006030000081AB88D54B4B2B47500C00000060"
  381. "300E0081471AF24B4B4BAB200C00830060300F10818E2A714B4B6BD5100C00C7006030"
  382. "0F10810D5AF24B4B4BE2200C00C70060300F10812AB8D54B4B4379500C00C70060300E"
  383. "008154799B4B4B4BB8B00C0083006030000089A8E2571B4B4F54710C00000060300000"
  384. "8571D5DE2B4B4F2DE20C0000006030000089EAE25D5A4B4795D50C0000006030000081"
  385. "D5795AB84B4B85AB0C0000006030000081ABB854797B45A5471C00000060300000814F"
  386. "5A58E20B42A58E2C00000060700000C18E2A50D5EB41A50D5C10000070700000C1051A"
  387. "50ABCBC0A50ABC10000070E00000E00A024047184024047930000830E30008F0040E70"
  388. "8ACF00E708A8F0000E30CFFFFF70000000050000000050FFFFFF100FFFFF1000000002"
  389. "0000000020CFFFF700000000000000000000000000000000000000000F10000082480C"
  390. "1000000000FF100000008F3000008268022000000000FF10000000C7300000C7481230"
  391. "00000000EF00000000E120000082483A2000000000EF00000C30F0000000C748162000"
  392. "000000FF10000E7078F00000824802200000000CFF70000F703CF1000082E80C100000"
  393. "0007BDE1008FF83EF3000000080000000000CBD6B7008FF81F8300016D1B0C10000000"
  394. "ED6BDE0081F8930300036DEA0220000000FFFFFF1080CDC101000728FA123000000030"
  395. "000810008DC000000F6D3B3A20000008FFFFFF30878D6C70000728DB1620000008D6D6"
  396. "D630CF9D6FF000036DEB02200000086D6D6D20EFBDEFF000016D0A0C10000008BBBBBB"
  397. "30E33FFFF0000000080000000008D6D6D630E16F70F1000F83F90C100000086D6D6D20"
  398. "ECFFF7C1000154480220000008FFFFFF30CCF0E7810001544812300000003000081048"
  399. "FFF381000154483A20000000FFFFFF1008308380000F44481620000000ED6BDE0000FF"
  400. "F180000144480220000000CBD6B70000E0E000000183480C100000000FBDE100008F30"
  401. "0000000000000000000008FF3000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7000000010"
  402. "00000000000000000040000000F833C0100000000000000000004F83E830FD73C01000"
  403. "00000000000000004FD7FD70BD63C0100000000000000000004BD63C00BD63C0100000"
  404. "000000000000004BD6FC30FD63C0100000000000000000004FD7E970FC63C010000000"
  405. "0000000000004FC78160BD7FD71000000000000000000043C6FD70B93FD71000000000"
  406. "000000000043C6E830"
  407. }
  408.   SKSHP {
  409. "GROB 71 31 0000000000000000000000000000000000000018F10F3F308F100008280"
  410. "1012120A010000458610D2D20B610000AB8614C2D28A614000D7961AC2D24A61A008EE"
  411. "261592D2AA6151047D569EA2D2DA69E20ABAB45792DAEA24710D5475BBC2D2FA88B00A"
  412. "B8A4D5C2DAF24950047156E2D2DAD2A22008E22671D2DAC2D51000D58EB0D2D2DAEA00"
  413. "00AB8E50D2DAD6750000479EB0D2D2DAB800088E2671D2D2DC5610041D56E2D2D2DE2E"
  414. "200A2AB4D5C2D2D71D500D5475BBC2D2DB4BB00ABAB45792D2D56571047D569E22D2D2"
  415. "69E208EE261D5ED25961D500D7961AB0C29861AB00AB861479F258614710458618E2F2"
  416. "38618E20828010D50218010D50018F10A2F308F10A2000000041000000041000000080"
  417. "000000080" }
  418.   DICE {
  419. "{ GROB 19 17 00000000000000000000000000000000000000700008F00008F00008F"
  420. "000007000000000000000000000000000000000000000 GROB 19 17 000830000C700"
  421. "00C70000C70000830000000000000000000000000000000000000000000E00000F1000"
  422. "0F10000F10000E00000 GROB 19 17 000830000C70000C70000C70000830000000007"
  423. "00008F00008F00008F000007000000000E00000F10000F10000F10000E00000 GROB 1"
  424. "9 17 E00830F10C70F10C70F10C70E0083000000000000000000000000000000000000"
  425. "0000000E00830F10C70F10C70F10C70E00830 GROB 19 17 E00830F10C70F10C70F10"
  426. "C70E0083000000000700008F00008F00008F000007000000000E00830F10C70F10C70F"
  427. "10C70E00830 GROB 19 17 E07830F9FC70F9FC70F9FC70E0783000000000000000000"
  428. "0000000000000000000000000E07830F9FC70F9FC70F9FC70E07830 }"
  429. }
  430.   WAVES {
  431. "{ GROB 6 20 70E0C1838383C1E0707070E0C1838383C1E07070 GROB 6 20 E0C1838"
  432. "383C1E0707070E0C1838383C1E0707070 GROB 6 20 C1838383C1E0707070E0C18383"
  433. "83C1E0707070E0 GROB 6 20 838383C1E0707070E0C1838383C1E0707070E0C1 GROB"
  434. " 6 20 8383C1E0707070E0C1838383C1E0707070E0C183 GROB 6 20 83C1E0707070E"
  435. "0C1838383C1E0707070E0C18383 GROB 6 20 C1E0707070E0C1838383C1E0707070E0"
  436. "C1838383 GROB 6 20 E0707070E0C1838383C1E0707070E0C1838383C1 GROB 6 20 "
  437. "707070E0C1838383C1E0707070E0C1838383C1E0 GROB 6 20 7070E0C1838383C1E07"
  438. "07070E0C1838383C1E070 }"
  439. }
  440.   DOTS {
  441. "{ GROB 9 19 C000E100CC000E106C00F0006C000E106C00F0006C000E106C00F0006C"
  442. "000E10CC00E100C000 GROB 9 19 8100C30081006C00FE106C0000006C00FE106C000"
  443. "0006C00FE106C0000006600FF0066000000 GROB 9 19 030087006300F0006C000E10"
  444. "6C00F0006C000E106C00F0006C000E106C00F000630087000300 GROB 9 19 0000660"
  445. "0FF00660000006C00FE106C0000006C00FE106C0000006C00FE106C008100C3008100 "
  446. "}" }
  447.   BALLS {
  448. GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
  449. GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
  450. GROB 7 18 F7E3C1000000000000C163F7F7E3C1000000
  451. GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
  452. GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
  453. GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
  454. GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
  455. GROB 7 18 000000C1E3F7F763C1000000000000C1E3F7
  456. GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
  457. GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
  458. }
  459.   DESTIN {
  460. "{ GROB 81 8 0000000E0F3E70000000000000000B8255A0000000000000008A8255A0"
  461. "000000000000000A8255A0000000000000000A8255A0000000000000000A8255A00000"
  462. "00000000000A8255A0000000000000008F3F3E7000000000 GROB 81 8 0000000F3E7"
  463. "CF0000000000000008055AA41000000000000000055AA41000000000000000835AA410"
  464. "00000000000000705AA41000000000000008205AA41000000000000008205AA4100000"
  465. "0000000008F7E7CF000000000 GROB 81 8 0000000F3E7CF0000000000000008055AA"
  466. "41000000000000000055AA41000000000000000E35AA41000000000000000055AA4100"
  467. "0000000000000055AA41000000000000008055AA41000000000000000F3E7CF0000000"
  468. "00 }" }
  469.   YOUWON {
  470. GROB 1 1 00
  471. GROB 1 1 00
  472. GROB 1 1 00
  473. GROB 71 2 00000000000300000000C100000003000070
  474. GROB 71 2 C16F9F91E913F9F91363B9FC81B9999FC813
  475. GROB 71 2 6ED0F681BD9D0FED030E703681CED603ED81
  476. GROB 71 2 0C6033C0CED6036F810C6033C0CB76036F81
  477. GROB 71 2 066813E0CB7681668106EC03F0C93EC03600
  478. GROB 71 2 03C70ED1C81C7C1CC0E10000000000000C00
  479. GROB 71 2 000000000000000830000000000000000000
  480. GROB 1 1 00
  481. GROB 1 1 00
  482. GROB 1 1 00 }
  483.   HPWON {
  484. GROB 1 1 00
  485. GROB 71 2 0000000000000000000F7BFFF00000000000
  486. GROB 71 2 0F730EF000000000000F1308F00000000000
  487. GROB 71 2 078100E00003000000078100E00003000070
  488. GROB 71 2 038100C0E913F9F91303C7C7C0B9999FC813
  489. GROB 71 2 01CCCC80BD9D0FED0301CCCC80CED603ED81
  490. GROB 71 2 01666680CED6036F8101666680CB76036F81
  491. GROB 71 2 0366E3C0CB76816681030030C0C93EC03600
  492. GROB 71 2 070030E0C81C7C1CC0070030E00000000C00
  493. GROB 71 2 0F1818F000000008300F781EF00000000000
  494. GROB 71 2 0FFBDFF00000000000000000000000000000
  495. GROB 1 1 00
  496. GROB 1 1 00 }
  497.   PLANT {
  498. "{ GROB 30 24 00000F1000008F300000C7300000E1200C30F0000E7078F00F703CF18"
  499. "FF83EF38FF81F8381F8930380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0E33FFFF"
  500. "0E16F70F1ECFFF7C1CCF0E78148FFF3810830838000FFF18000E0E000008F3000 GROB"
  501. " 30 24 00008F000000CF100000EB100C30F0100E7878F00F783CF18FF81EF38FFC1F8"
  502. "381FC830380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0EFBDEFF0E17FF0F1E06F7"
  503. "0C1CCFFF7814CF0E78108FFF3800830838000FFF10000E0E000008F3000 GROB 30 24"
  504. " 0000C7000000EF000C30FD000E7878F00F783CF18FF81EF38FF81F8381ED170380CD9"
  505. "30100CDD100878DEE70CF9D6FF0EFBDEFF0EFBDEFF0E1FDE0F1E06F70C1C06F70814CF"
  506. "FF7810CF0E78008FFF3800830830000FFF10000E0E000008F3000 }"
  507. }
  508.   POT {
  509. "{ GROB 27 24 00EF300000EF300000CF100000CF100000EF300008FFF0000E6BD3008"
  510. "7BD6F00CBD6BD10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADAD6"
  511. "0DADADA50FFFFFF7060000030EFFFFF30CBD6BD1087BD6F000E7BD30000FF7000 GROB"
  512. " 27 24 000000000000000000EF300000EF300000CF100000CF100000EF3000087BF00"
  513. "00FBDE700CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADA"
  514. "D60DADADA50FFFFFF7070000070EFFFFF30EBD6BD30C7BD6F100FFFF700 GROB 27 24"
  515. " 0000000000000000000000000000000000EF300000EF300000CF100000CF100000FF7"
  516. "0000EBDE300CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDA"
  517. "DAD60DADADA50FFFFFF7070000070EFFFFF30CBD6BF100EFFF300 }"
  518. }
  519.   SHAPES {
  520. "{ GROB 18 15 1EFF303EFF307EFF30FEFF307EFF303EFF301EFF300000001EFF303EF"
  521. "F307EFF30FEFF307EFF303EFF301EFF30 GROB 25 25 0FFFF100CFFFF700EFFFFF00E"
  522. "FFFFF00FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF1"
  523. "0FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFF"
  524. "F10EFFFFF00EFFFFF00CFFFF7000FFFF100 GROB 67 8 E7ECD9B377EEFDF170DFAE49"
  525. "A2557AF5F25050A749A65D3A049250D7A349AE5D1A749250EBA349AE5D1A7492700AA7"
  526. "49AA5D3A049200FBAE4FA2557AF5F270E7EC9F9377EEFDF170 GROB 63 8 F7CFC9BF3"
  527. "70EF937DBA759AE550AF9255AA459A2550A08255AA459AE350A78255AA459AE350A783"
  528. "75AA459A2550A0000DBA75FAE5DFAF937F7CF8F9F3FFEF937 GROB 67 25 040810030"
  529. "3008100000E08100303008100000F18100303008100008B3810120302810100C178183"
  530. "20303818300E0E01C12038380C10070C11E0303C300E000E080170303E3006000C1089"
  531. "30303630200008308D10303230700000708F00303038300000E0870030303C100000C1"
  532. "8F0030303E000000838D103030378100000789303030B38300020E01703030F1070007"
  533. "0C11E03030F01E000E0E01C12030781C100C178183003038183008B381070030181070"
  534. "00F1810E00300810E000E0810C1E300810C1004081083C300810830000000070000000"
  535. "070000000020000000020 GROB 71 1 FFFFFFF9CFFFFFFF94 GROB 71 7 EFFFFFFF1"
  536. "000000004FFFFFFFF339AC23E64FFFFFFFF3292BC2512FFFFFFFF394294A312FFFFFFF"
  537. "F3D29429800FFFFFFFF3B19429901EFFFFFFF1000000000 }"
  538. }
  539. END
  540.